home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / bounce.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  3KB  |  49 lines
  1. 10 REM *=*=*=*=*=*=*=*
  2. 100 REM 
  3. 110 FADE
  4. 120 MOVE
  5. 130 GOSUB
  6. 140 REM 
  7. 150 REM ----> Define animation and movement strings
  8. 160 REM 
  9. 170 VARNAME
  10. 180 VARNAME
  11. 190 REM 
  12. 20 REM 
  13. 200 REM ----> Print sprite
  14. 210 REM 
  15. 220 SPRITE
  16. 230 ANIM
  17. 240 ANIM
  18. 250 MOVE Y
  19. 260 MOVE
  20. 270 REM 
  21. 280 REM ----> Control sprites
  22. 290 REM 
  23. 30 REM   Bouncy ball
  24. 300 REPEAT
  25. 310 UPDATE
  26. 320 SCREEN SWAP
  27. 330 WAIT VBL
  28. 340 SCREEN COPY
  29. 350 SCREEN COPY
  30. 360 VARNAME
  31. 370 IF
  32. 380 IF
  33. 390 UNTIL
  34. 40 REM      demo
  35. 400 FADE
  36. 410 WAIT
  37. 420 DEFAULT
  38. 430 END
  39. 440 REM 
  40. 450 REM ----> Get sprite palette
  41. 460 REM 
  42. 470 LOKE
  43. 480 RETURN
  44. 50 REM  by Ben of FRS
  45. 60 REM   allow delay
  46. 70 REM    at strat
  47. 80 REM 
  48. 90 REM *=*=*=*=*=*=*=*
  49.